home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_UPWIND.PRG < prev    next >
Encoding:
Text File  |  1993-01-21  |  839 b   |  26 lines
  1. //*****************************************************************************
  2. // C_UpWind.prg
  3. // Up Window class for OBJECT v2.03
  4. // Copyright (c) 1991, JHK, JHK-Software, Piestany
  5. // Compile with: /N/M/W/A
  6. //-----------------------------------------------------------------------------
  7.  
  8. #include "Object.ch"                //this is the same as Window class,
  9.                                     //but Paint() do not show (ID) and ()
  10. create class UpWindow from Window
  11.   export:
  12.   method New=UpWindowNew  //o:New()
  13.   endclass
  14.  
  15.  
  16. //*****************************************************************************
  17. // UpWindow:New() --> self
  18. // default values for this object
  19. //
  20. constructor UpWindowNew()
  21.   ::UpFlag:=true
  22.   return(self)
  23.  
  24. //------------------------------------------------------- eof (c)JHK ----------
  25.  
  26.